home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ IE Outlook Express 9.xpl < prev    next >
Text File  |  2002-05-11  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Outlook Express\System"
  5. "NAME"="Security Zone"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Internet (Medium)"
  8. "TEXT 2"="Local Intranet (Medium-Low)"
  9. "TEXT 3"="Trusted Sites (Low)"
  10. "TEXT 4"="Restricted Sites (High)"
  11. "DESCRIPTION 1"="This plug-in lets you configure which zone Outlook Express should use for HTML emails. Some emails may contain JavaScript viruses or open hard-to-close browser windows, and setting a high security level will stop these from annoying you or damaging your system. It will also stop emails with counters or statistics monitors from 'reporting home' with information about your computer."
  12. "DESCRIPTION 2"="On the other hand, setting a high security level will disable some of the enhanced functionality of HTML emails."
  13. "DESCRIPTION 3"="Note: The default setting in later versions of Outlook Express has been 'High' (Restricted Sites), but older versions used Medium. The setting was changed in Outlook Express 6 - to change it, use the Options dialog in the program itself."
  14. "VERSION"="1.01"
  15. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "CONTACTURL"="http://www.xteq.com/"
  18. "COMMENTS 1"="Thanks to CptSiskoX for the 'doesn't work on OE6' message."
  19. "OSVERSION"="111110"
  20.  
  21. ID="HKCU\Identities\Last User ID"
  22. sP1="\Software\Microsoft\Outlook Express\5.0\"
  23. Inf="Security Zone"
  24. sp2="HKLM\SOFTWARE\Microsoft\Outlook Express\MediaVer"
  25.  
  26. SUB Plugin_Initialize
  27.  g=RegReadValue(sp2)
  28.  if g>"6" then
  29.   Call Disable()
  30.  end if
  31.  
  32.  y=RegReadValue(ID)
  33.  if IsEmpty(y)=false then
  34.   sValPath="HKCU\Identities\" & y & sP1
  35.  
  36.   t=RegReadValue(sValPath & Inf)
  37.   if t>0 then
  38.      Call SetUIElement(t,true)
  39.   end if
  40.  else
  41.   Call Disable()
  42.  end if
  43. END SUB
  44.  
  45. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  46.  y=RegReadValue(ID)
  47.  sValPath="HKCU\Identities\" & y & sP1
  48.  
  49.  For g=1 to 4
  50.   s=GetUIElement(g)
  51.   if s=true then
  52.    Call RegWriteValue(sValPath & Inf,g,2)
  53.   end if
  54.  Next
  55. END SUB
  56.  
  57. SUB Plugin_Terminate
  58. END SUB
  59.